home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmis.dir / Internal_9_klickFur.ls < prev    next >
Encoding:
Text File  |  2001-09-10  |  415 b   |  29 lines
  1. property meSprite
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6. end
  7.  
  8. on mouseUp me
  9.   if the lastClick > 2 then
  10.     gmObject.reportFur(me.spriteNum, value(meSprite.member.name))
  11.     if sound(2).member = member(1, 1) then
  12.       sound(2).stop()
  13.     end if
  14.     stopEvent()
  15.   end if
  16. end
  17.  
  18. on mouseEnter me
  19.   cursor([500, 501])
  20. end
  21.  
  22. on mouseLeave me
  23.   cursor(0)
  24. end
  25.  
  26. on endSprite me
  27.   cursor(0)
  28. end
  29.